home *** CD-ROM | disk | FTP | other *** search
/ HamCall (October 1991) / HamCall (Whitehall Publishing)(1991).bin / bcast / bcstcble / mrt23stl.bas < prev    next >
BASIC Source File  |  1990-10-14  |  3KB  |  66 lines
  1. 10    REM MARTI STL23 CALCULATOR
  2. 20    PRINT"SIMPLIFIED 23 gHz STL PROGRAM FOR MARTI STL23"
  3. 30    INPUT "PATH LENGTH IN MILES ";L
  4. 40    L=INT(L+.5)
  5. 50    IF L>.8 THEN D=10
  6. 60    IF L>.9 THEN D=9.2
  7. 70    IF L>1  THEN D=8.5
  8. 80    IF L>1.5 THEN D=6.75
  9. 90    IF L>2.0 THEN D=6.1
  10. 100   IF L>2.5 THEN D=5.9
  11. 110   IF L>3.0 THEN D=4.8
  12. 120   IF L>3.5 THEN D=4.0
  13. 130   IF L>4.0 THEN D=3.5
  14. 140   IF L>5.0 THEN D=3.0
  15. 150   IF L>6.0 THEN D=2.6
  16. 160   IF L>7.0 THEN D=2.4
  17. 170   IF L>8.0 THEN D=2.3
  18. 180   IF L>9.0 THEN D=2.2
  19. 190   IF L>10  THEN D=2.1
  20. 200   IF L>15  THEN D=1.1
  21. 210   IF L>20  THEN D=0.8
  22. 220   PRINT "YOUR DESIGN VALUE IS ";D
  23. 290   '
  24. 300   IF D > 2.8 THEN PRINT"GOOD FOR ZONE 7 ONLY"
  25. 310   IF D > 4.1 THEN PRINT"GOOD FOR ZONES 6-7"
  26. 320   IF D > 4.9 THEN PRINT"GOOD FOR ZONES 5-7"
  27. 330   IF D > 5.6 THEN PRINT"GOOD FOR ZONES 4-7"
  28. 340   IF D > 6.2 THEN PRINT"GOOD FOR ZONES 3-7"
  29. 350   IF D > 7.8 THEN PRINT"GOOD FOR ZONES 2-7"
  30. 360   IF D > 8.2 THEN PRINT"GOOD FOR ZONES 1-7":GOTO 400
  31. 370   '
  32. 400   PRINT " FOR 99.999% RELIABILITY (6 MINUTES OR LESS"
  33. 410   PRINT "OF DOWN TIME A YEAR)."
  34. 420   PRINT "REFER TO MARTI ELECTRONIC FIGURE 4"
  35. 430   PRINT "FOR YOUR LOCATION"
  36. 440   IF D > 2.8 THEN PRINT "STATES: HI"
  37. 450   IF D > 4.1 THEN PRINT "& WA OR NV CA UT ID AK"
  38. 460   IF D > 4.9 THEN PRINT "& NY VT NH ME MA RI AZ"
  39. 470   IF D > 5.6 THEN PRINT "& MN WI IA IL IN MO OH KY WV VA MD DE NJ PA"
  40. 480   IF D > 6.2 THEN PRINT "& TX OK AR LO MS AL GA SC NC PR"
  41. 490   IF D > 7.8 THEN PRINT "& FL (NORTH HALF)
  42. 500   IF D > 8.2 THEN PRINT "& FL (SOUTH HALF)
  43. 510   PRINT" STATES LISTED ARE APPROXIMATE. CHECK WITH"
  44. 520   PRINT" YOUR CONSULTANT FOR MORE ACCURACY."
  45. 650   REM BY BOB GROOME
  46. 665   REM    ALLIED BROADCAST EQUIPMENT
  47. 670   REM    PO BOX 1487
  48. 680   REM    RICHMOND, IN 47375
  49. 690   REM    317/962-8596
  50. 700   REM    NO RESPONSIBILITY IS ACCEPTED FOR ANY USE
  51. 710   REM    OF THIS PROGRAM.  YOUR CONSULTANT IS YOUR
  52. 720   REM    BEST GUID IN STL PATH STUDIES.
  53. 730   REM    FIGURE 4 IS AVAILABLE FROM THE AUTHOR BY
  54. 740   REM    WRITTEN REQUEST OR FROM
  55. 745   REM    MARTI ELECTRONICS
  56. 750   REM    P.O. BOX 661
  57. 760   REM    CLEBURNE, TX 76031-0661
  58. 770   REM    THIS PROGRAM IS COPYRIGHT 1988. DO NOT USE
  59. 780   REM    FOR COMMERCIAL PURPOSES.  YOU MAY MAKE AS
  60. 790   REM    COPIES FOR YOUR SLEF AS DESIRED, BUT DO
  61. 800   REM    NOT DUPLICATE WITHOUT WRITTEN PERMISSION.
  62. 810   REM    VALUES FOR D FROM PATH STUDY GUID BY MARTI
  63. 820   REM    ELECTRONICS.  BASED ON 99.999% RELIABILTY.
  64. 830   REM    FOR OTHER FACTORS, CHANGE THE VALUES OF D
  65. 840   REM    IN LINES 50 THRU 210.
  66.